library(tidyverse)
library(readr)
chic <- read_csv("ggplot2/ggModify/chicago-nmmaps.csv")

# 1. 调整边距（Margin）
#   可以使用theme()函数的参数plot.margin。
#   参数plot.margin可以接受各种不同的单位(c m、inches等)。
#   你可以为所有边提供相同的值(最简单的是通过rep(x, 4))或为每个边提供特定的距离。
ggplot(chic, aes(x = date, y = temp)) +
  geom_point(color = "firebrick") +
  labs(x = "Year", y = "Temperature (°F)") +
  theme(plot.background = element_rect(fill = "gray60"),
        plot.margin = margin(t = 1, r = 3, b = 1, l = 8, unit = "cm"))

